(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    101397,       2519]
NotebookOptionsPosition[     91253,       2335]
NotebookOutlinePosition[     97882,       2487]
CellTagsIndexPosition[     97811,       2482]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["Quiz 2", "ProblemTitle"],

Cell["Problem 1", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "1"}],

Cell["Which of these expressions is an atom?", "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[1] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[1] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["{}", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[1] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[1] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["List", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[1] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[1] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["String[]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[1] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[1] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["None of these expressions is an atom."], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[1] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[1] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{}", "InlineFormula"]}]]], "ProblemChoiceText"]}], 2 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["List", "InlineFormula"]}]]], "ProblemChoiceText"]}], 3 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["String[]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["None of these expressions is an atom."]], 
         "ProblemChoiceText"]}]}, Appearance -> "Vertical", BaselinePosition -> 
    Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 2", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "2"}],

Cell[TextData[{
 "Which of these inputs evaluates to the list ",
 StyleBox["{b, c, d}", "InlineFormula"],
 "?"
}], "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[2] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[2] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["Most[Rest[{a, b, c, d, e}]]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[2] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[2] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Take[Drop[{a, b, c, d, e}, -1], -3]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[2] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[2] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["Part[{a, b, c, d, e}, 2;;4]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[2] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[2] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell["All of the above"], "ProblemChoiceText", StripOnInput -> 
              False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[2] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[2] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["Most[Rest[{a, b, c, d, e}]]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Take[Drop[{a, b, c, d, e}, -1], -3]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["Part[{a, b, c, d, e}, 2;;4]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell["All of the above"]], "ProblemChoiceText"]}]}, Appearance -> 
    "Vertical", BaselinePosition -> Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 3", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "3"}],

Cell["\<\
Which of these inputs returns \[OpenCurlyDoubleQuote]physics\
\[CloseCurlyDoubleQuote] for the following association?\
\>", "ProblemCaption"],

Cell[BoxData[
 RowBox[{"assoc", "=", 
  RowBox[{"<|", 
   RowBox[{
    RowBox[{"\"\<Alice\>\"", "\[Rule]", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"\"\<major\>\"", "\[Rule]", "\"\<physics\>\""}], ",", 
       RowBox[{"\"\<score\>\"", "\[Rule]", "95"}]}], "|>"}]}], ",", 
    RowBox[{"\"\<Bob\>\"", "\[Rule]", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"\"\<major\>\"", "\[Rule]", "\"\<math\>\""}], ",", 
       RowBox[{"\"\<score\>\"", "\[Rule]", "100"}]}], "|>"}]}]}], 
   "|>"}]}]], "Input",
 CellChangeTimes->{{3.7642213043555098`*^9, 3.7642213689989834`*^9}, {
   3.7642214681294703`*^9, 3.764221488534278*^9}, {3.7645283356167917`*^9, 
   3.764528346063113*^9}, {3.765715262646668*^9, 3.765715263485774*^9}, {
   3.76572708022824*^9, 3.765727080587944*^9}, {3.7657274005972443`*^9, 
   3.765727436489635*^9}, 3.765731067036768*^9, {3.765731236387577*^9, 
   3.765731262665073*^9}, {3.765731689969692*^9, 3.765731691776848*^9}, 
   3.7899246023377237`*^9, {3.7899248556019993`*^9, 3.789924856839691*^9}, {
   3.789925478892486*^9, 3.789925516488344*^9}}],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[3] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[3] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "assoc[\[OpenCurlyDoubleQuote]Alice\[CloseCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]major\[CloseCurlyDoubleQuote]]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[3] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[3] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "assoc[\[OpenCurlyDoubleQuote]major\[CloseCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]Alice\[CloseCurlyDoubleQuote]]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[3] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[3] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["assoc[[1, 2, 1]]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[3] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[3] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "Lookup[assoc, {\[OpenCurlyDoubleQuote]Alice\
\[CloseCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]major\[CloseCurlyDoubleQuote]}]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[3] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[3] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "assoc[\[OpenCurlyDoubleQuote]Alice\[CloseCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]major\[CloseCurlyDoubleQuote]]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "assoc[\[OpenCurlyDoubleQuote]major\[CloseCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]Alice\[CloseCurlyDoubleQuote]]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["assoc[[1, 2, 1]]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "Lookup[assoc, {\[OpenCurlyDoubleQuote]Alice\
\[CloseCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]major\[CloseCurlyDoubleQuote]}]", "InlineFormula"]}]]],
          "ProblemChoiceText"]}]}, Appearance -> "Vertical", BaselinePosition -> 
    Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 4", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "4"}],

Cell[TextData[{
 "What is the result of evaluating ",
 StyleBox["{g[2], g[10], f[x], g[x]}/.g[x_] \[Rule] x + 4", "InlineFormula"],
 "?"
}], "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[4] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[4] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "{g[6], g[14], f[x], g[4 + x]}", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[4] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[4] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["{6, 14, f[x], 4 + x}", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[4] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[4] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["{g[2], g[10], f[x], g[x]}", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[4] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[4] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["{6, 14, f[4], 4 + x}", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[4] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[4] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{g[6], g[14], f[x], g[4 + x]}", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{6, 14, f[x], 4 + x}", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{g[2], g[10], f[x], g[x]}", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{6, 14, f[4], 4 + x}", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}]}, Appearance -> "Vertical", BaselinePosition -> 
    Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 5", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "5"}],

Cell[TextData[{
 "Which of these inputs returns ",
 StyleBox["{{1, 2, 1}", "InlineFormula"],
 " if ",
 StyleBox["data={{1, 2, 1}, {1, 2, 3}, {3, 2, 1}}", "InlineFormula"],
 "?"
}], "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[5] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[5] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "DeleteCases[data, {x_, _, x_}]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[5] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[5] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["Cases[data, {", "InlineFormula"], 
                 StyleBox["_x", IgnoreSpellCheck -> True], 
                 StyleBox[", _, ", "InlineFormula"], " ", 
                 StyleBox["_x", IgnoreSpellCheck -> True], 
                 StyleBox["}]", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[5] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[5] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["Select[data, {x_, _, x_}]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[5] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[5] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["Cases[data, {x_, _, x_}]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[5] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[5] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["DeleteCases[data, {x_, _, x_}]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["Cases[data, {", "InlineFormula"], 
             StyleBox["_x", IgnoreSpellCheck -> True], 
             StyleBox[", _, ", "InlineFormula"], " ", 
             StyleBox["_x", IgnoreSpellCheck -> True], 
             StyleBox["}]", "InlineFormula"]}]]], "ProblemChoiceText"]}], 3 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["Select[data, {x_, _, x_}]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["Cases[data, {x_, _, x_}]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}]}, Appearance -> "Vertical", BaselinePosition -> 
    Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 6", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "6"}],

Cell[TextData[{
 "Which of these inputs returns ",
 StyleBox["{\[OpenCurlyDoubleQuote]oo\[CloseCurlyDoubleQuote], \
\[OpenCurlyDoubleQuote]ee\[CloseCurlyDoubleQuote]}", "InlineFormula"],
 "?"
}], "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[6] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[6] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "StringCases[\[OpenCurlyDoubleQuote]too bee or not\
\[CloseCurlyDoubleQuote], x_~~x_]", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[6] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[6] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "StringReplace[\[OpenCurlyDoubleQuote]too bee or not\
\[CloseCurlyDoubleQuote], x_~~x_ :> StringJoin[x, x]]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[6] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[6] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "StringCases[\[OpenCurlyDoubleQuote]too bee or not\
\[CloseCurlyDoubleQuote], (\[OpenCurlyDoubleQuote]o\[CloseCurlyDoubleQuote]|\
\[OpenCurlyDoubleQuote]e\[CloseCurlyDoubleQuote])..]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[6] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[6] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "StringCases[\[OpenCurlyDoubleQuote]too bee or not\
\[CloseCurlyDoubleQuote], (\[OpenCurlyDoubleQuote]o\[CloseCurlyDoubleQuote]||\
\[OpenCurlyDoubleQuote]e\[CloseCurlyDoubleQuote])..]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[6] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[6] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "StringCases[\[OpenCurlyDoubleQuote]too bee or not\
\[CloseCurlyDoubleQuote], x_~~x_]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "StringReplace[\[OpenCurlyDoubleQuote]too bee or not\
\[CloseCurlyDoubleQuote], x_~~x_ :> StringJoin[x, x]]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "StringCases[\[OpenCurlyDoubleQuote]too bee or not\
\[CloseCurlyDoubleQuote], (\[OpenCurlyDoubleQuote]o\[CloseCurlyDoubleQuote]|\
\[OpenCurlyDoubleQuote]e\[CloseCurlyDoubleQuote])..]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "StringCases[\[OpenCurlyDoubleQuote]too bee or not\
\[CloseCurlyDoubleQuote], (\[OpenCurlyDoubleQuote]o\[CloseCurlyDoubleQuote]||\
\[OpenCurlyDoubleQuote]e\[CloseCurlyDoubleQuote])..]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}]}, Appearance -> "Vertical", BaselinePosition -> 
    Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 7", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "7"}],

Cell[TextData[{
 "What is returned by ",
 StyleBox["(x=5; {x, Module[{x=10}, x], x})", "InlineFormula"],
 "?"
}], "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[7] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[7] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["{10, 10, 10}", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[7] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[7] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["{5, 10, 5}", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[7] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[7] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["{5, 10, 10}", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[7] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[7] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["{5, 5, 5}", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[7] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[7] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{10, 10, 10}", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 2 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{5, 10, 5}", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{5, 10, 10}", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["{5, 5, 5}", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}]}, Appearance -> "Vertical", BaselinePosition -> 
    Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 8", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "8"}],

Cell[TextData[{
 "What is returned by ",
 StyleBox["(p = 5 q; Module[{q=10}, p])", "InlineFormula"],
 "?"
}], "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[8] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[8] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["50", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[8] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[8] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["10", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[8] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[8] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["p", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[8] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[8] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["5q", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[8] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[8] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["50", "InlineFormula"]}]]], "ProblemChoiceText"]}], 2 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["10", "InlineFormula"]}]]], "ProblemChoiceText"]}], 3 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["p", "InlineFormula"]}]]], "ProblemChoiceText"]}], 4 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["5q", "InlineFormula"]}]]], "ProblemChoiceText"]}]}, 
    Appearance -> "Vertical", BaselinePosition -> Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 9", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "9"}],

Cell[TextData[{
 "What is returned by evaluating ",
 StyleBox["If[1, 2, 3, 4]", "InlineFormula"],
 "?"
}], "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[9] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[9] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["1", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[9] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[9] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["2", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[9] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[9] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["3", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[9] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[9] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["4", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[9] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[9] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["1", "InlineFormula"]}]]], "ProblemChoiceText"]}], 2 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["2", "InlineFormula"]}]]], "ProblemChoiceText"]}], 3 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["3", "InlineFormula"]}]]], "ProblemChoiceText"]}], 4 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["4", "InlineFormula"]}]]], "ProblemChoiceText"]}]}, 
    Appearance -> "Vertical", BaselinePosition -> Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell["Problem 10", "ProblemSectionNoFeedback",
 TaggingRules->{"QuestionNum" -> "10"}],

Cell[TextData[{
 "What is returned by evaluating ",
 StyleBox["Catch[Do[If[k > 10, Throw[k]], {k, 1, 20}]]", "InlineFormula"],
 "?"
}], "ProblemCaption"],

Cell[BoxData[
 DynamicModuleBox[{MOOCNotebook`Quiz`Private`ans$$ = 0}, 
  InterpretationBox[
   StyleBox[GridBox[{
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[10] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[10] -> Blank[]]}]}])& ], {1},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["11", "InlineFormula"]}]], "ProblemChoiceText", 
              StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[10] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[10] -> Blank[]]}]}])& ], {2},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["Throw[11]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[10] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[10] -> Blank[]]}]}])& ], {3},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox[
                 "{11, 12, 13, 14, 15, 16, 17, 18, 19, 20}", 
                  "InlineFormula"]}]], "ProblemChoiceText", StripOnInput -> 
              False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]},
      {GridBox[{
         {
          
          RadioButtonBox[Dynamic[
           MOOCNotebook`Quiz`Private`ans$$, (
            MOOCNotebook`Quiz`Private`ans$$ = #; SetOptions[
              EvaluationNotebook[], 
              TaggingRules -> {"Answers" -> Flatten[{ToString[10] -> #, 
                   DeleteCases[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "Answers"}], 
                    ToString[10] -> Blank[]]}]}])& ], {4},
           BaselinePosition->Baseline,
           DefaultBaseStyle->"RadioButtonBar"], 
          StyleBox[
           TemplateBox[{
             StyleBox["\" \"", "ProblemChoiceText", StripOnInput -> False], 
             StyleBox[
              Cell[
               TextData[{
                 StyleBox["Catch[11]", "InlineFormula"]}]], 
              "ProblemChoiceText", StripOnInput -> False]},
            "RowDefault"], "RadioButtonBarLabel",
           StripOnInput->False]}
        },
        AutoDelete->False,
        BaselinePosition->{1, 2},
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.21]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}], 
    "Deploy"],
   RadioButtonBar[
    Dynamic[
    MOOCNotebook`Quiz`Private`ans$$, (MOOCNotebook`Quiz`Private`ans$$ = #; 
     SetOptions[
       EvaluationNotebook[], 
       TaggingRules -> {"Answers" -> Flatten[{ToString[10] -> #, 
            DeleteCases[
             CurrentValue[
              EvaluationNotebook[], {TaggingRules, "Answers"}], ToString[10] -> 
             Blank[]]}]}])& ], {1 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["11", "InlineFormula"]}]]], "ProblemChoiceText"]}], 2 -> 
     Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["Throw[11]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}], 3 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox[
             "{11, 12, 13, 14, 15, 16, 17, 18, 19, 20}", "InlineFormula"]}]]],
          "ProblemChoiceText"]}], 4 -> Row[{
        Style[" ", "ProblemChoiceText"], 
        Style[
         RawBoxes[
          Cell[
           TextData[{
             StyleBox["Catch[11]", "InlineFormula"]}]]], 
         "ProblemChoiceText"]}]}, Appearance -> "Vertical", BaselinePosition -> 
    Baseline]],
  DynamicModuleValues:>{}]], "ProblemChoiceGrid"],

Cell[BoxData[
 DynamicModuleBox[{$CellContext`buttonLabel$$ = "Get Results"}, 
  DynamicBox[ToBoxes[
    If[
     Not[
      TrueQ[
       CurrentValue[
        EvaluationNotebook[], {TaggingRules, "QuizChecked"}, False]]], 
     MouseAppearance[
      Button[
       Style[$CellContext`buttonLabel$$, "CheckButtonText", 
        ShowStringCharacters -> False], $CellContext`buttonLabel$$ = Pane[
          Row[{" CHECKING ", 
            ProgressIndicator[Appearance -> "Percolate"]}]]; 
       MOOC`CheckAnswers[]; 
       MOOC`SetQuizChecked[True]; $CellContext`buttonLabel$$ = "Get Results"; 
       Null, BaseStyle -> "CheckButton", Evaluator -> Automatic, Method -> 
       "Queued"], "LinkHand"], 
     Module[{
      MOOCNotebook`Quiz`Private`answers$, 
       MOOCNotebook`Quiz`Private`correctAnswers$, 
       MOOCNotebook`Quiz`Private`numberOfAnswers$, 
       MOOCNotebook`Quiz`Private`corr$, 
       MOOCNotebook`Quiz`Private`percentCorrect$}, 
      MOOCNotebook`Quiz`Private`answers$ = CurrentValue[
         EvaluationNotebook[], {TaggingRules, "Answers"}]; 
      MOOCNotebook`Quiz`Private`numberOfAnswers$ = 
       Length[MOOCNotebook`Quiz`Private`answers$]; 
      MOOCNotebook`Quiz`Private`correctAnswers$ = CurrentValue[
         EvaluationNotebook[], {TaggingRules, "CorrectAnswers"}]; If[
        And[
         MemberQ[{Inherited, $Failed}, 
          MOOCNotebook`Quiz`Private`correctAnswers$], False], 
        MOOC`SetTaggingRule["CorrectAnswers", 
         Map[# -> False& , 
          Range[
           Length[MOOCNotebook`Quiz`Private`answers$]]]]]; If[
        And[
         ListQ[MOOCNotebook`Quiz`Private`correctAnswers$], 
         Length[MOOCNotebook`Quiz`Private`correctAnswers$] > 0], 
        MOOCNotebook`Quiz`Private`corr$ = Map[ToString, {
            Length[
             Select[MOOCNotebook`Quiz`Private`correctAnswers$, TrueQ[
               Part[#, 2]]& ]], 
            Length[MOOCNotebook`Quiz`Private`correctAnswers$]}]; 
        MOOCNotebook`Quiz`Private`percentCorrect$ = StringJoin[
           ToString[
            Round[100 (Length[
                Select[MOOCNotebook`Quiz`Private`correctAnswers$, TrueQ[
                  Part[#, 2]]& ]]/Length[
              MOOCNotebook`Quiz`Private`correctAnswers$])]], "%"], 
        MOOCNotebook`Quiz`Private`corr$ = {"0", 
           ToString[
            Length[MOOCNotebook`Quiz`Private`answers$]]}; 
        MOOCNotebook`Quiz`Private`percentCorrect$ = "0"]; 
      With[{MOOCNotebook`Quiz`Private`percent$ = 
         MOOCNotebook`Quiz`Private`percentCorrect$, 
         MOOCNotebook`Quiz`Private`correct$ = 
         MOOCNotebook`Quiz`Private`corr$}, 
        Grid[{{
           Style["Quiz Results", "QuizResultsText"]}, {
           Row[{
             Style["Your score is ", "ScoreText"], 
             Style[
             MOOCNotebook`Quiz`Private`percent$, "ScoreText", FontFamily -> 
              "Source Sans Pro Semibold", AutoMultiplicationSymbol -> 
              False]}]}, {
           Style[
            StringJoin["You answered ", 
             Part[MOOCNotebook`Quiz`Private`correct$, 1], " out of ", 
             Part[MOOCNotebook`Quiz`Private`correct$, 2], 
             " problems correctly.  Your quiz score has been recorded."], 
            "NumProbsCorrectText"]}, 
          If[False, {
            Row[
             Flatten[{
               Map[{
                 PaneSelector[{True -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFADiFWAmIVhQACjTJBMHgMbA9fAWI8CGNUL1ae7HHD5b9hvuI+BmYFzMLgF
hvXb9DcB3cQ2GNwygG7C6RYY1mvWXQ9UxzwY3ALD2jXaS2nsJqLdAsPykfLl
g8Ut4PxGmzJgRLiFWZBZcrC4RcZPKtNxh+NXfn1+h4F2i6SHeAJMj/1W+488
Gjzm1HaLyVST48S4RdxFPNp5n/NfZL0E3ES6W6abnGTmZOYnxy3IbuJU4NSl
l1uErYT9HPc4/sZnlt0Gu9dIbqKdWyyEfYFu+UWMmVA36dDKLSAAShug+CDW
bMedjt9p5Ra4mzR5LIH2fCPFHlq5BQb4DfidqOkmStxCbTdRwy0wAEzfPsSm
b1q7Be4mSP4n2U3m88wvUdstcDfZCAfgKh9xuOUyMw+zKC3cAgP4ymx6u4VY
N9HTLTAg6S2ZOljcAgOgNtFgcQvcTQFS2YPFLTAg6SWZMljcMgpGwSgYBaOA
fgAAMnZL2A==
                    "], "Byte", ColorSpace -> "RGB", ImageSize -> 
                    Automatic, Interleaving -> True, Magnification -> 0.5], 
                   False -> Image[CompressedData["
1:eJztl7EKwkAMhovn4OhqEYvioKC7q6Or4gNUrMWlQiuI7+fuqpOLTo4+gF6G
g4KlXpJrz6E/pEfb//INLUmuu9rNNzXHcZKGvMz9wzSO/eOiKW+WUbINo2A9
i/ZBGMSTlZAPBzI6MurOt4ZCjE8t99wVop/xGiXIAbkGQox++S6ud395vTes
HLZurrRPBZWtmyvLR2Xr5srzYdmYXPDd83y6bB2mCmDC/3tre08OG8MEFjBh
H6xX13tQ2BgmMBSTsl+xKXu43wh8JpgUtimmaTal7nDZnDpLZXNrO4VtggnC
1BWIdF0oi2mCTWVy2FwmhW2KiWFjexOlB3GZ2L6Qxeb0YE7vtdH3bc05tua6
X/6i5tg8f9Fze5a/rHOKko1zWaVKlSr9sz4GxjG4
                    "], "Byte", 
                    ColorSpace -> "RGB", ImageSize -> Automatic, Interleaving -> 
                    True, Magnification -> 0.5]}, 
                  Part[#, 2]], 
                 Spacer[3], 
                 Style[
                  Part[#, 1], "NumProbsCorrectText"], 
                 Spacer[24]}& , 
                MOOCNotebook`Quiz`Private`correctAnswers$]}]]}, Nothing], 
          If[True, {
            Style[
             StringJoin[
             "In order to be eligible for a certificate of course completion, \
you must score ", 
              ToString[60], "% on all course quizzes."], 
             "NumProbsCorrectText"]}, Nothing], {
           If[
            StringMatchQ[MOOCNotebook`Quiz`Private`percent$, "100%"], 
            Nothing[], 
            Column[{
              Style["You can retake this quiz!", "NumProbsCorrectText"], 
              Style[
              "Select different responses to the quiz problems and get new \
results.", "NumProbsCorrectText"]}, Frame -> None, FrameStyle -> 
             Thickness[0]]]}}, 
         Spacings -> {"Rows" -> {3, 1, 2, 1, 2, 3}, "Columns" -> {3}}]]]], 
    StandardForm],
   ImageSizeCache->{160., {12., 28.}}],
  DynamicModuleValues:>{},
  Initialization:>(
   MOOC`CheckAnswers[] := 
    Module[{MOOCNotebook`Quiz`Private`answers$, 
       MOOCNotebook`Quiz`Private`correctAnswers$, 
       MOOCNotebook`Quiz`Private`results$, MOOCNotebook`Quiz`Private`tags$, 
       MOOCNotebook`Quiz`Private`success$, MOOCNotebook`Quiz`Private`wid$ = 
       ToString[$WolframID], MOOCNotebook`Quiz`Private`wuuid$ = 
       ToString[$WolframUUID]}, 
      MOOCNotebook`Quiz`Private`answers$ = CurrentValue[
         EvaluationNotebook[], {TaggingRules, "Answers"}]; If[
        ListQ[MOOCNotebook`Quiz`Private`answers$], 
        MOOCNotebook`Quiz`Private`answers$ = ExportString[
           Association[MOOCNotebook`Quiz`Private`answers$], "RawJSON"]; 
        With[{MOOCNotebook`Quiz`Private`id$ = ToString[$WolframID], 
           MOOCNotebook`Quiz`Private`uuid$ = ToString[$WolframUUID]}, 
          MOOCNotebook`Quiz`Private`results$ = URLExecute[
            CloudObject[
            "https://www.wolframcloud.com/obj/online-courses/api/daily-study-\
group/get/quiz-verification/202"], {
            "userAnswers" -> MOOCNotebook`Quiz`Private`answers$, "wid" -> 
             MOOCNotebook`Quiz`Private`id$, "wuuid" -> 
             MOOCNotebook`Quiz`Private`uuid$}]]; 
        MOOCNotebook`Quiz`Private`success$ = If[
           StringQ[MOOCNotebook`Quiz`Private`results$], 
           ToExpression[MOOCNotebook`Quiz`Private`results$], $Failed]; 
        MOOCNotebook`Quiz`Private`success$ = SortBy[
           If[
            AssociationQ[MOOCNotebook`Quiz`Private`success$], 
            Normal[MOOCNotebook`Quiz`Private`success$], 
            MOOCNotebook`Quiz`Private`success$], ToExpression[
            First[#]]& ]; If[
          ListQ[MOOCNotebook`Quiz`Private`success$], 
          MOOCNotebook`Quiz`Private`tags$ = MOOC`ResetOptions[
             CurrentValue[
              EvaluationNotebook[], TaggingRules], "CorrectAnswers" -> 
             Normal[MOOCNotebook`Quiz`Private`success$]]; If[
            ListQ[MOOCNotebook`Quiz`Private`tags$], 
            SetOptions[
             EvaluationNotebook[], TaggingRules -> 
             MOOCNotebook`Quiz`Private`tags$]]; 
          With[{MOOCNotebook`Quiz`Private`id$ = ToString[$WolframID], 
             MOOCNotebook`Quiz`Private`uuid$ = ToString[$WolframUUID]}, 
            If[
             And[
              StringQ[
              "https://www.wolframcloud.com/obj/online-courses/daily-study-\
group/api/log/quiz"], 
              StringMatchQ[
              "https://www.wolframcloud.com/obj/online-courses/daily-study-\
group/api/log/quiz", "http*"]], 
             URLExecute[
              CloudObject[
              "https://www.wolframcloud.com/obj/online-courses/daily-study-\
group/api/log/quiz"], {
              "id" -> MOOCNotebook`Quiz`Private`id$, "uuid" -> 
               MOOCNotebook`Quiz`Private`uuid$, "quiznum" -> ToString[202], 
               "correctpercent" -> ToString[
                 Round[Divide[
                    Count[
                    MOOCNotebook`Quiz`Private`success$, Blank[] -> True], 
                    Length[MOOCNotebook`Quiz`Private`success$]] 100]], 
               "answers" -> ToString[MOOCNotebook`Quiz`Private`answers$]}]]]; 
          True, $Failed], $Failed]]; MOOC`SetQuizChecked[
      Pattern[MOOCNotebook`Quiz`Private`val, 
       Blank[]]] := 
    MOOC`SetTaggingRule["QuizChecked", MOOCNotebook`Quiz`Private`val]; 
   MOOC`SetTaggingRule[
      Pattern[MOOCNotebook`Quiz`Private`tag, 
       Blank[]], 
      Pattern[MOOCNotebook`Quiz`Private`val, 
       Blank[]]] := 
    Module[{MOOCNotebook`Quiz`Private`tags}, 
      MOOCNotebook`Quiz`Private`tags = MOOC`ResetOptions[
         CurrentValue[
          EvaluationNotebook[], TaggingRules], MOOCNotebook`Quiz`Private`tag -> 
         MOOCNotebook`Quiz`Private`val]; If[
        ListQ[MOOCNotebook`Quiz`Private`tags], 
        SetOptions[
         EvaluationNotebook[], TaggingRules -> 
         MOOCNotebook`Quiz`Private`tags]]]; MOOC`ResetOptions[
      Pattern[MOOCNotebook`Quiz`Private`h, 
       Blank[]][
       Pattern[MOOCNotebook`Quiz`Private`stuff, 
        BlankNullSequence[]], 
       PatternTest[
        Pattern[MOOCNotebook`Quiz`Private`opts, 
         BlankNullSequence[]], OptionQ]], 
      PatternTest[
       Pattern[MOOCNotebook`Quiz`Private`newopts, 
        BlankSequence[]], OptionQ]] := 
    MOOCNotebook`Quiz`Private`h[MOOCNotebook`Quiz`Private`stuff, 
      Apply[Sequence, 
       Flatten[{MOOCNotebook`Quiz`Private`newopts}]], 
      Apply[Sequence, 
       DeleteCases[{MOOCNotebook`Quiz`Private`opts}, 
        Blank[][
         Apply[Alternatives, 
          Part[
           Flatten[{MOOCNotebook`Quiz`Private`newopts}], All, 1]], 
         Blank[]]]]]; MOOC`ResetOptions[
      Pattern[MOOCNotebook`Quiz`Private`h, 
       Blank[]][
       Pattern[MOOCNotebook`Quiz`Private`stuff, 
        BlankNullSequence[]]], 
      PatternTest[
       Pattern[MOOCNotebook`Quiz`Private`newopts, 
        BlankSequence[]], OptionQ]] := 
    MOOCNotebook`Quiz`Private`h[
     MOOCNotebook`Quiz`Private`stuff, 
      MOOCNotebook`Quiz`Private`newopts])]], "ResultsGrid"],

Cell[TextData[StyleBox["", "SmallText",
 FontColor->GrayLevel[0.6]]], "Text",
 ShowCellBracket->False,
 CellTags->"version"]
},
WindowSize->{775, 872},
WindowMargins->{{Automatic, 418}, {49, Automatic}},
ShowCellBracket->False,
TaggingRules->{
 "QuizNumber" -> 202, "QuizChecked" -> False, 
  "Answers" -> {
   "1" -> 0, "10" -> 0, "2" -> 0, "3" -> 0, "4" -> 0, "5" -> 0, "6" -> 0, "7" -> 
    0, "8" -> 0, "9" -> 0}},
FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (December 12, 2020)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData["Text"], FontFamily -> "Source Sans Pro"], 
   Cell[
    StyleData["ProblemTitle", StyleDefinitions -> StyleData["Text"]], 
    Editable -> False, Deletable -> False, 
    CellMargins -> {{70, Inherited}, {15, 80}}, FontSize -> 40, FontColor -> 
    RGBColor[0.9882352941176471, 0.43137254901960786`, 0.12941176470588237`]], 
   Cell[
    StyleData["ProblemSection"], Editable -> False, Deletable -> False, 
    CellDingbat -> Dynamic[
      If[
       TrueQ[
        CurrentValue[
         EvaluationNotebook[], {TaggingRules, "QuizChecked"}, False]], 
       If[
        TrueQ[
         CurrentValue[
          EvaluationNotebook[], {TaggingRules, "CorrectAnswers", 
           CurrentValue[
            EvaluationCell[], {TaggingRules, "QuestionNum"}]}]], 
        Cell[
         BoxData[
          GraphicsBox[
           TagBox[
            RasterBox[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAOiFWAmIVhQACjTJBMHgMbA9fAWI8CGNUL1ae7HHD5b9hvuI+BmYFzMLgF
hvXb9DcB3cQ2GNwygG7C6RYY1mvWXQ9UxzwY3ALD2jXaS2nsJqLdAsPykfLl
g8Ut4PxGmzJgRLiFWZBZcrC4RcZPKtNxh+NXfn1+h4F2i6SHeAJMj/1W+488
Gjzm1HaLyVST48S4RdxFPNp5n/NfZL0E3ES6W6abnGTmZOYnxy3IbuJU4NSl
l1uErYT9HPc4/sZnlt0Gu9dIbqKdWyyEfYFu+UWMmVA36dDKLSAAShug+CDW
bMedjt9p5Ra4mzR5LIH2fCPFHlq5BQb4DfidqOkmStxCbTdRwy0wAEzfPsSm
b1q7Be4mSP4n2U3m88wvUdstcDfZCAfgKh9xuOUyMw+zKC3cAgP4ymx6u4VY
N9HTLTAg6S2ZOljcAgOgNtFgcQvcTQFS2YPFLTAg6SWZQku3AADRKkvO
             "], {{0,
              30}, {36, 0}}, {0, 255}, ColorFunction -> RGBColor], 
            BoxForm`ImageTag[
            "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> 
             0.5], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
           ImageSize -> Magnification[0.5], ImageSizeRaw -> {36, 30}, 
           PlotRange -> {{0, 36}, {0, 30}}]]], 
        Cell[
         BoxData[
          GraphicsBox[
           TagBox[
            RasterBox[CompressedData["
1:eJzF1zELgkAUAGDpGhpbk0iMhoLaWxtbjX6AkkmLgQbR/2tvramlpsZ+QPmg
A6FD77136sEp6rv3Dcp7pxvsvW3Lsqy0kx08/7hIEv+06mYX6zjdRXG4WcaH
MAqTeSCym4PfbFv/YyLE7NyzL64QI8Vj1IAckGssxLQs7mo7j7cz/MCZY+vm
ysfJSbV1c6niqLZurqI4rI3JBe+9KE7X1jHlBBO+33vfeXFsjAkWmLAOzjfb
eVJsjAmGNCnrpU1Zw31HEGfCpNimTNM2pe5wbU6dpdrc2k6xTZgwMHUFZr4u
1GWasKkmx+aaFNuUibGxvYnSg7gmti+obE4P5vTeJvp+U/ucpvZ1ZfFV7WOL
4qvet6vi6/pPkaOu/7IvXXgxrg==
             "], {{0, 30}, {30, 0}}, {0, 255}, 
             ColorFunction -> RGBColor], 
            BoxForm`ImageTag[
            "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> 
             0.5], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
           ImageSize -> Magnification[0.5], ImageSizeRaw -> {30, 30}, 
           PlotRange -> {{0, 30}, {0, 30}}]]]], ""]], 
    CellMargins -> {{70, Inherited}, {8, 15}}, CounterIncrements -> 
    "ProblemSection", FontFamily -> "Source Sans Pro Semibold", FontSize -> 
    18, FontVariations -> {"CapsType" -> "AllCaps"}], 
   Cell[
    StyleData["ProblemSectionNoFeedback"], Editable -> False, Deletable -> 
    False, CellMargins -> {{70, Inherited}, {8, 15}}, CounterIncrements -> 
    "ProblemSection", FontFamily -> "Source Sans Pro Semibold", FontSize -> 
    18, FontVariations -> {"CapsType" -> "AllCaps"}], 
   Cell[
    StyleData["ProblemCaption", StyleDefinitions -> StyleData["Text"]], 
    Editable -> False, Deletable -> False, 
    CellMargins -> {{70, Inherited}, {15, 7}}, FontSize -> 21, FontColor -> 
    GrayLevel[0]], 
   Cell[
    StyleData["ProblemChoiceText", StyleDefinitions -> StyleData["Text"]], 
    Editable -> False, Deletable -> False, ShowStringCharacters -> False, 
    FontSize -> 18, FontColor -> GrayLevel[0]], 
   Cell[
    StyleData["ProblemChoiceGrid"], Editable -> False, Deletable -> False, 
    CellMargins -> {{70, Inherited}, {45, 0}}], 
   Cell[
    StyleData["CheckButton"], 
    CellMargins -> {{70, Inherited}, {Inherited, Inherited}}, 
    ButtonBoxOptions -> {
     Background -> 
      RGBColor[0.9882352941176471, 0.43137254901960786`, 
        0.12941176470588237`], ImageSize -> {160, 40}}], 
   Cell[
    StyleData["CheckButtonText"], FontFamily -> "Source Sans Pro Semibold", 
    FontSize -> 18, FontVariations -> {"CapsType" -> "AllCaps"}, FontColor -> 
    GrayLevel[1]], 
   Cell[
    StyleData["QuizResultsText"], FontFamily -> "Source Sans Pro Semibold", 
    FontSize -> 20, FontVariations -> {"CapsType" -> "AllCaps"}, FontColor -> 
    RGBColor[0.29411764705882354`, 0.4, 0.5372549019607843]], 
   Cell[
    StyleData["ScoreText"], FontFamily -> "Source Sans Pro", FontSize -> 22, 
    FontColor -> GrayLevel[0]], 
   Cell[
    StyleData["ResultsGrid"], Editable -> False, Deletable -> False, 
    CellMargins -> {{70, Inherited}, {70, 0}}, ShowStringCharacters -> False, 
    GridBoxOptions -> {FrameStyle -> Directive[
        Thickness[Large], 
        RGBColor[0.4549019607843137, 0.6196078431372549, 0.7843137254901961]],
       GridBoxAlignment -> {"Columns" -> {{Left}}}, 
      GridBoxBackground -> {"Columns" -> {{
           RGBColor[
           0.9490196078431372, 0.9647058823529412, 0.9725490196078431]}}}, 
      GridBoxDividers -> {
       "Columns" -> {True, {False}, True}, "Rows" -> {True, {False}, True}}, 
      GridBoxItemSize -> {"Columns" -> {{36}}}, 
      GridBoxSpacings -> {"Columns" -> {Automatic, {
           Offset[0.5599999999999999]}, Automatic}, "Rows" -> {Automatic, {
           Offset[0.4]}, Automatic}}}], 
   Cell[
    StyleData["NumProbsCorrectText"], FontFamily -> "Source Sans Pro", 
    FontSize -> 17], 
   Cell[
    StyleData["InlineFormula"], ShowStringCharacters -> True, 
    MenuSortingValue -> 10000]}, Visible -> False, 
  TaggingRules -> {"QuizChecked" -> False}, FrontEndVersion -> 
  "12.2 for Mac OS X x86 (64-bit) (December 12, 2020)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "version"->{
  Cell[91125, 2330, 124, 3, 70, "Text",ExpressionUUID->"e219b76e-1aa9-471e-b080-32cfaaa59d4b",
   CellTags->"version"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"version", 97667, 2476}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 30, 0, 70, "ProblemTitle",ExpressionUUID->"3f7c1e26-4e79-4997-9d7f-6cbb24e69ff8"],
Cell[591, 22, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"ff5a82e1-0788-4ba1-b12c-03302bfad750"],
Cell[678, 25, 64, 0, 70, "ProblemCaption",ExpressionUUID->"7429d6ed-ce9d-43cc-9882-e2aaefd33730"],
Cell[745, 27, 7244, 186, 70, "ProblemChoiceGrid",ExpressionUUID->"b3bd25b4-d4d1-44be-8c94-c08960980756"],
Cell[7992, 215, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"b3ec9705-0736-4d5c-bbf4-afec541935db"],
Cell[8079, 218, 132, 4, 70, "ProblemCaption",ExpressionUUID->"6d5f96ab-4f14-4f1a-a05b-4e5688ed54e6"],
Cell[8214, 224, 7382, 187, 70, "ProblemChoiceGrid",ExpressionUUID->"75a6ee5b-3796-4624-ae47-d31e8757cc63"],
Cell[15599, 413, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"10553343-a373-451c-8287-b39ebb70c368"],
Cell[15686, 416, 151, 3, 70, "ProblemCaption",ExpressionUUID->"ba15ca98-cb18-4a61-9690-a399bf96fb59"],
Cell[15840, 421, 1077, 22, 70, "Input",ExpressionUUID->"9faad9f6-bbc3-47bd-b2e2-be877705328c"],
Cell[16920, 445, 8130, 204, 70, "ProblemChoiceGrid",ExpressionUUID->"62c388ef-f770-463b-8aa7-f182187abe4c"],
Cell[25053, 651, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"8c18d8e0-e9e2-4e8f-aae8-fd063ff3b542"],
Cell[25140, 654, 158, 4, 70, "ProblemCaption",ExpressionUUID->"fe122e15-093c-49c9-b473-088cc5d20045"],
Cell[25301, 660, 7494, 191, 70, "ProblemChoiceGrid",ExpressionUUID->"5ecedb82-0fd8-40ed-9160-6d8e7920c644"],
Cell[32798, 853, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"3fd998a3-b4c8-42ca-b3b7-19827221151e"],
Cell[32885, 856, 198, 6, 70, "ProblemCaption",ExpressionUUID->"9d9f8f68-ac40-43c1-929c-f18cc280ee2f"],
Cell[33086, 864, 7930, 199, 70, "ProblemChoiceGrid",ExpressionUUID->"85de884d-ff04-4b2e-ae43-adfb541a3fad"],
Cell[41019, 1065, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"c195e86f-c739-4bc0-bf3f-10e870c15473"],
Cell[41106, 1068, 213, 5, 70, "ProblemCaption",ExpressionUUID->"b8fe1af6-e357-4aa5-8715-9de25854d5b7"],
Cell[41322, 1075, 8522, 210, 70, "ProblemChoiceGrid",ExpressionUUID->"690ad4ee-a304-4d0e-90c7-80456bd0c6b0"],
Cell[49847, 1287, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"a93d1917-27e9-443e-867b-2fb7ed19dc87"],
Cell[49934, 1290, 131, 4, 70, "ProblemCaption",ExpressionUUID->"aede20ce-af76-4ec7-98e3-e27164abe9fe"],
Cell[50068, 1296, 7372, 190, 70, "ProblemChoiceGrid",ExpressionUUID->"3a444fc6-6701-441b-81c9-aaadccf8da7d"],
Cell[57443, 1488, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"e129b80e-9e24-4a01-a2b4-95d0ad208035"],
Cell[57530, 1491, 127, 4, 70, "ProblemCaption",ExpressionUUID->"eda4ba87-0dae-4239-a8bb-c0efaae071ef"],
Cell[57660, 1497, 7280, 189, 70, "ProblemChoiceGrid",ExpressionUUID->"d03434dd-0360-4968-aa18-1efa3a089019"],
Cell[64943, 1688, 84, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"7941c235-52a9-4582-a6c0-25adee01e759"],
Cell[65030, 1691, 124, 4, 70, "ProblemCaption",ExpressionUUID->"580e6621-2fd1-492b-be4d-cf2c9324dfb3"],
Cell[65157, 1697, 7274, 189, 70, "ProblemChoiceGrid",ExpressionUUID->"8b106e00-e2f7-412b-b7d9-c51c5199ce6e"],
Cell[72434, 1888, 86, 1, 70, "ProblemSectionNoFeedback",ExpressionUUID->"a06a51e7-33eb-4d76-b336-741fc2d3062d"],
Cell[72523, 1891, 153, 4, 70, "ProblemCaption",ExpressionUUID->"450779d2-9b85-4d8d-a257-357b5c99c2f9"],
Cell[72679, 1897, 7465, 193, 70, "ProblemChoiceGrid",ExpressionUUID->"9a610494-7c02-4b2e-82f4-7b079f11929a"],
Cell[80147, 2092, 10975, 236, 70, "ResultsGrid",ExpressionUUID->"9837cade-ff2a-4441-894a-4e1f1cbb7dd1"],
Cell[91125, 2330, 124, 3, 70, "Text",ExpressionUUID->"e219b76e-1aa9-471e-b080-32cfaaa59d4b",
 CellTags->"version"]
}
]
*)

(* End of internal cache information *)
